sHelp
                                     MIS.VEN
     i   2
 main
   ap.contacts
   mm.contacts
   pha.contacts
   terms.discounts
 tvf.top
   tvf.ap
   tvf.mm
   tvf.pha
 vf.main
   vf.ap.contacts
   vf.mm.contacts
   vf.pha.contacts
   vf.terms.discounts
 vf.report
   vfr.fac.report

 Ì   €   i   2
main
[number]
&(G)GR[gr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 number                      11 FREE     L                 gr                                                          
 active                       1 YN       L                 &(G)GR[gr]|0                                                
 addr.1                      35 FREE     L                 &(G)GR[gr]P|2                                               
 addr.2                      35 FREE     L                 &(G)GR[gr]P|3                                               
 addr.3                      35 FREE     L                 &(G)GR[gr]P|4                                               
 addr.alt                    35 FREE     L                 &(G)GR[gr]P["ALT"]|0                                        
 allow.jit                    1 YN       L                 &(G)GR[gr]|22                                               
 ap.addr.1                   35 FREE     L                 &(G)GR[gr]A|2                                               
 ap.addr.2                   35 FREE     L                 &(G)GR[gr]A|3                                               
 ap.addr.3                   35 FREE     L                 &(G)GR[gr]A|4                                               
 ap.addr.alt                 35 FREE     L                 &(G)GR[gr]A["ALT"]|0                                        
 ap.city                     20 FREE     L                 &(G)GR[gr]AE|0                                              
 ap.name                     35 FREE     L                 &(G)GR[gr]A|0                                               
 ap.name.2                   35 FREE     L                 &(G)GR[gr]A|1                                               
 ap.name.and.number          48 FREE     L                 VAL=(@MIS.VEN.ap.name_"  "_@MIS.VEN.val.number'="  ")       
 ap.name.mnem                35 FREE     L                 VAL=IF{rpt.nm.ch="NAME" ap.name;@mnemonic}                  
 ap.postal.code              10 FREE     L                 &(G)GR[gr]AE|2                                              
 ap.state                     2 FREE     L                 &(G)GR[gr]AE|1                                              
 auto.hold                    1 YN       L                 &(G)GR[gr]|3                                                
 bank.acc                    10 FREE     L  MIS.BANK       &(G)GR[gr]|5                                            
 block.activity               1 YN       L                 &(G)GR[gr]|21                                               
 city                        20 FREE     L                 &(G)GR[gr]PE|0                                              
 dft.po.interface            15 FREE     L  MM.EDI.PROGRAM &(G)GR[gr]|15                                           
 expense.type                15 FREE     L  MIS.EXP.TYPE   &(G)GR[gr]|20                                           
 fax.attention               25 FREE     L                 &(G)GR[gr]F|1                                               
 fax.number                  24 FREE     L                 &(G)GR[gr]F|0                                               
 fed.id.num                  12 FREE     L                 &(G)GR[gr]|7                                                
 fed.id.num.type              3 CHOICE   L                 &(G)GR[gr]|19                                               
 filing.database             12 FREE     L  MIS.APPL.DB    &(G)GR[gr]|12                                           
 filing.user                 10 FREE     L  MIS.USER       &(G)GR[gr]|13                                           
 fob                         35 FREE     L                 &(G)GR[gr]|9                                                
 foreign.1099                 1 YN       L                 &(G)GR[gr]|23                                               
 index.id                    35 FREE     L                                                                             
 inv.ee                       1 YN       L                 &(G)GR[gr]|11                                               
 last.update                 50 FREE     L                 &(G)GR[gr]UPD                                               
 max.inv.amnt                11 MONEY    R                 &(G)GR[gr]|2                                                
 misc                         1 YN       L                 &(G)GR[gr]|16                                               
 mnemonic                    10 FREE     L                 &(G)GR[gr]|1                                                
 name                        35 FREE     L                 &(G)GR[gr]P|0                                               
 name.2                      35 FREE     L                 &(G)GR[gr]P|1                                               
 name.and.number             48 FREE     L                 VAL=(@MIS.VEN.name_"  "_@MIS.VEN.val.number'="  ")          
 name.mnem                   35 FREE     L                 VAL=IF{rpt.nm.ch="NAME" name;@mnemonic}                     
 no.tax.rate                  1 YN       L                 VAL=IF{@tax.rate_.=. "Y";"N"}                               
 num.pfx                      1 FREE     L                 VAL=number#0                                                
 our.acct.number             20 FREE     L                 &(G)GR[gr]|6                                                
 pha.list.ck                  1 YN       L                 VAL=IF{IF{/BY=1 index.id=@mnemonic;/BY=2 index.id=@nam      
                                                           VAL=e!(index.id=@remit.name);index.id=number} "Y";"N"}      
 pha.min.ord.amt              8 MONEY    R                 &(G)GR[gr]PHA|0                                             
 postal.code                 10 FREE     L                 &(G)GR[gr]PE|2                                              
 print.1099                   1 YN       L                 &(G)GR[gr]|17                                               
 registration.number         15 FREE     L                 &(G)GR[gr]|18                                               
 remit.addr.1                35 FREE     L                 &(G)GR[gr]R|2                                               
 remit.addr.2                35 FREE     L                 &(G)GR[gr]R|3                                               
 remit.addr.3                35 FREE     L                 &(G)GR[gr]R|4                                               
 remit.addr.alt              35 FREE     L                 &(G)GR[gr]R["ALT"]|0                                        
 remit.city                  20 FREE     L                 &(G)GR[gr]RE|0                                              
 remit.name                  35 FREE     L                 &(G)GR[gr]R|0                                               
 remit.name.2                35 FREE     L                 &(G)GR[gr]R|1                                               
 remit.override               1 YN       L                 &(G)GR[gr]|4                                                
 remit.postal.code           10 FREE     L                 &(G)GR[gr]RE|2                                              
 remit.state                  2 FREE     L                 &(G)GR[gr]RE|1                                              
 rpt.nm.ch                    8 CHOICE   L                                                                             
 rpt.num.pfx                  1 FREE     L                 VAL=IF{rpt.pfx.yn="Y" @num.pfx;.}                           
 rpt.pfx.yn                   1 YN       L                                                                             
 state                        2 FREE     L                 &(G)GR[gr]PE|1                                              
 tax.rate                     6 DEC3     R                 &(G)GR[gr]|14                                               
 tax.rate.3d                  6 DEC3     R                 VAL=(@tax.rate:3D)                                          
 terms.desc                  35 FREE     L                 &(G)GR[gr]|8                                                
 terms.net                   15 FREE     L                 &(G)GR[gr]T|1                                               
 terms.type                   3 FREE     L                 &(G)GR[gr]T|0                                               
 val.number                  11 FREE     L                 &(G)GR[gr]|10                                               
 vf.fac.count                 3 PINT     R                 &(G)GR[gr]V|0                                               
 Ì   €   i   2
ap.contacts
[number,  ap.contact]
&(G)GR[gr]C[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ap.contact                   2 PINT     R                 grC                                                         
 ap.contact.comment          30 FREE     L                 &(G)GR[gr]C[grC]|2                                          
 ap.contact.name             20 FREE     L                 &(G)GR[gr]C[grC]|0                                          
 ap.contact.phone            20 PHONE    L                 &(G)GR[gr]C[grC]|1                                          
 Ì   €   i   2
mm.contacts
[number,  mm.contact]
&(G)GR[gr]CM[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mm.contact                   2 PINT     R                 grC                                                         
 mm.contact.comment          30 FREE     L                 &(G)GR[gr]CM[grC]|2                                         
 mm.contact.name             20 FREE     L                 &(G)GR[gr]CM[grC]|0                                         
 mm.contact.phone            20 PHONE    L                 &(G)GR[gr]CM[grC]|1                                         
 Ì   €   i   2
pha.contacts
[number,  pha.contact]
&(G)GR[gr]CP[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pha.contact                  2 PINT     R                 grC                                                         
 pha.contact.comment         30 FREE     L                 &(G)GR[gr]CP[grC]|2                                         
 pha.contact.name            20 FREE     L                 &(G)GR[gr]CP[grC]|0                                         
 pha.contact.phone           20 PHONE    L                 &(G)GR[gr]CP[grC]|1                                         
 Ì   €   i   2
terms.discounts
[number,  terms.date]
&(G)GR[gr]T["D",grTD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 terms.date                  15 FREE     L                 grTD                                                        
 terms.percent               10 PDEC     R                 &(G)GR[gr]T["D",grTD]                                       
 Ì     i   2
tvf.top
[tvf.number]
/GR[gr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 tvf.number                  11 PINT     R                 gr                                                          
 Ì   €   i   2
tvf.ap
[tvf.number,  tvf.ap.contact]
/GR[gr]C[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 tvf.ap.contact               2 PINT     R                 grC                                                         
 tvf.ap.contact.comment      30 FREE     L                 /GR[gr]C[grC]|2                                             
 tvf.ap.contact.name         20 FREE     L                 /GR[gr]C[grC]|0                                             
 tvf.ap.contact.phone        20 PHONE    L                 /GR[gr]C[grC]|1                                             
 Ì   €   i   2
tvf.mm
[tvf.number,  tvf.mm.contact]
/GR[gr]CM[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 tvf.mm.contact               2 PINT     R                 grC                                                         
 tvf.mm.contact.comment      30 FREE     L                 /GR[gr]CM[grC]|2                                            
 tvf.mm.contact.name         20 FREE     L                 /GR[gr]CM[grC]|0                                            
 tvf.mm.contact.phone        20 FREE     L                 /GR[gr]CM[grC]|1                                            
 Ì   €   i   2
tvf.pha
[tvf.number,  tvf.pha.contact]
/GR[gr]CP[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 tvf.pha.contact              2 PINT     R                 grC                                                         
 tvf.pha.contact.comment     30 FREE     L                 /GR[gr]CP[grC]|2                                            
 tvf.pha.contact.name        20 FREE     L                 /GR[gr]CP[grC]|0                                            
 tvf.pha.contact.phone       20 PHONE    L                 /GR[gr]CP[grC]|1                                            
 Ì     i   2
vf.main
[vf.number,vf.pur.fac]
&(G)GRV[gr,mw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vf.number                   11 FREE     L                 gr                                                          
 vf.pur.fac                  10 FREE     L  MIS.PUR.FAC    mw                                                      
 vf.active                    1 YN       L                 &(G)GRV[gr,mw]|0                                            
 vf.addr.1                   35 FREE     L                 &(G)GRV[gr,mw]P|2                                           
 vf.addr.2                   35 FREE     L                 &(G)GRV[gr,mw]P|3                                           
 vf.addr.3                   35 FREE     L                 &(G)GRV[gr,mw]P|4                                           
 vf.addr.alt                 35 FREE     L                 &(G)GRV[gr,mw]P["ALT"]|0                                    
 vf.allow.jit                 1 YN       L                 &(G)GRV[gr,mw]|22                                           
 vf.ap.addr.1                35 FREE     L                 &(G)GRV[gr,mw]A|2                                           
 vf.ap.addr.2                35 FREE     L                 &(G)GRV[gr,mw]A|3                                           
 vf.ap.addr.3                35 FREE     L                 &(G)GRV[gr,mw]A|4                                           
 vf.ap.addr.alt              35 FREE     L                 &(G)GRV[gr,mw]A["ALT"]|0                                    
 vf.ap.city                  20 FREE     L                 &(G)GRV[gr,mw]AE|0                                          
 vf.ap.name                  35 FREE     L                 &(G)GRV[gr,mw]A|0                                           
 vf.ap.name.2                35 FREE     L                 &(G)GRV[gr,mw]A|1                                           
 vf.ap.postal.code           10 FREE     L                 &(G)GRV[gr,mw]AE|2                                          
 vf.ap.state                  2 FREE     L                 &(G)GRV[gr,mw]AE|1                                          
 vf.auto.hold                 1 YN       L                 &(G)GRV[gr,mw]|3                                            
 vf.bank.acc                 10 FREE     L  MIS.BANK       &(G)GRV[gr,mw]|5                                        
 vf.block.activity            1 YN       L                 &(G)GRV[gr,mw]|21                                           
 vf.city                     20 FREE     L                 &(G)GRV[gr,mw]PE|0                                          
 vf.dft.po.interface         15 FREE     L  MM.EDI.PROGRAM &(G)GRV[gr,mw]|15                                       
 vf.expense.type             15 FREE     L  MIS.EXP.TYPE   &(G)GRV[gr,mw]|20                                       
 vf.fax.attention            25 FREE     L                 &(G)GRV[gr,mw]F|1                                           
 vf.fax.number               24 FREE     L                 &(G)GRV[gr,mw]F|0                                           
 vf.fed.id.num               12 FREE     L                 &(G)GRV[gr,mw]|7                                            
 vf.fed.id.num.type           3 CHOICE   L                 &(G)GRV[gr,mw]|19                                           
 vf.filing.database          12 FREE     L  MIS.APPL.DB    &(G)GRV[gr,mw]|12                                       
 vf.filing.user              10 FREE     L  MIS.USER       &(G)GRV[gr,mw]|13                                       
 vf.fob                      35 FREE     L                 &(G)GRV[gr,mw]|9                                            
 vf.foreign.1099              1 YN       L                 &(G)GRV[gr,mw]|23                                           
 vf.id.flag                   1 FREE     L                 VAL=IF{@p.vf.active[number,CD] "Y"}                         
 vf.inv.ee                    1 YN       L                 &(G)GRV[gr,mw]|11                                           
 vf.last.update              50 FREE     L                 &(G)GRV[gr,mw]UPD                                           
 vf.max.inv.amnt             11 MONEY    R                 &(G)GRV[gr,mw]|2                                            
 vf.misc                      1 YN       L                 &(G)GRV[gr,mw]|16                                           
 vf.mnemonic                 10 FREE     L                 &(G)GRV[gr,mw]|1                                            
 vf.name                     35 FREE     L                 &(G)GRV[gr,mw]P|0                                           
 vf.name.2                   35 FREE     L                 &(G)GRV[gr,mw]P|1                                           
 vf.no.tax.rate               1 YN       L                 VAL=IF{@vf.tax.rate_.=. "Y";"N"}                            
 vf.our.acct.number          20 FREE     L                 &(G)GRV[gr,mw]|6                                            
 vf.postal.code              10 FREE     L                 &(G)GRV[gr,mw]PE|2                                          
 vf.print.1099                1 YN       L                 &(G)GRV[gr,mw]|17                                           
 vf.registration.number      15 FREE     L                 &(G)GRV[gr,mw]|18                                           
 vf.remit.addr.1             35 FREE     L                 &(G)GRV[gr,mw]R|2                                           
 vf.remit.addr.2             35 FREE     L                 &(G)GRV[gr,mw]R|3                                           
 vf.remit.addr.3             35 FREE     L                 &(G)GRV[gr,mw]R|4                                           
 vf.remit.addr.alt           35 FREE     L                 &(G)GRV[gr,mw]R["ALT"]|0                                    
 vf.remit.city               20 FREE     L                 &(G)GRV[gr,mw]RE|0                                          
 vf.remit.name               35 FREE     L                 &(G)GRV[gr,mw]R|0                                           
 vf.remit.name.2             35 FREE     L                 &(G)GRV[gr,mw]R|1                                           
 vf.remit.override            1 YN       L                 &(G)GRV[gr,mw]|4                                            
 vf.remit.postal.code        10 FREE     L                 &(G)GRV[gr,mw]RE|2                                          
 vf.remit.state               2 FREE     L                 &(G)GRV[gr,mw]RE|1                                          
 vf.state                     2 FREE     L                 &(G)GRV[gr,mw]PE|1                                          
 vf.tax.rate                  6 DEC3     R                 &(G)GRV[gr,mw]|14                                           
 vf.tax.rate.3d               6 DEC3     R                 VAL=(@vf.tax.rate:3D)                                       
 vf.terms.desc               35 FREE     L                 &(G)GRV[gr,mw]|8                                            
 vf.terms.net                15 FREE     L                 &(G)GRV[gr,mw]T|1                                           
 vf.terms.type                3 FREE     L                 &(G)GRV[gr,mw]T|0                                           
 vf.val.number               11 FREE     L                 &(G)GRV[gr,mw]|10                                           
 Ì   €   i   2
vf.ap.contacts
[vf.number,vf.pur.fac,  vf.ap.contact]
&(G)GRV[gr,mw]C[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vf.ap.contact                2 PINT     R                 grC                                                         
 vf.ap.contact.comment       30 FREE     L                 &(G)GRV[gr,mw]C[grC]|2                                      
 vf.ap.contact.email         40 FREE     L                 &(G)GRV[gr,mw]C[grC]|3                                      
 vf.ap.contact.name          20 FREE     L                 &(G)GRV[gr,mw]C[grC]|0                                      
 vf.ap.contact.phone         20 PHONE    L                 &(G)GRV[gr,mw]C[grC]|1                                      
 Ì   €   i   2
vf.mm.contacts
[vf.number,vf.pur.fac,  vf.mm.contact]
&(G)GRV[gr,mw]CM[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vf.mm.contact                2 PINT     R                 grC                                                         
 vf.mm.contact.comment       30 FREE     L                 &(G)GRV[gr,mw]CM[grC]|2                                     
 vf.mm.contact.email         40 FREE     L                 &(G)GRV[gr,mw]CM[grC]|3                                     
 vf.mm.contact.name          20 FREE     L                 &(G)GRV[gr,mw]CM[grC]|0                                     
 vf.mm.contact.phone         20 PHONE    L                 &(G)GRV[gr,mw]CM[grC]|1                                     
 Ì   €   i   2
vf.pha.contacts
[vf.number,vf.pur.fac,  vf.pha.contact]
&(G)GRV[gr,mw]CP[grC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vf.pha.contact               2 PINT     R                 grC                                                         
 vf.pha.contact.comment      30 FREE     L                 &(G)GRV[gr,mw]CP[grC]|2                                     
 vf.pha.contact.email        40 FREE     L                 &(G)GRV[gr,mw]CP[grC]|3                                     
 vf.pha.contact.name         20 FREE     L                 &(G)GRV[gr,mw]CP[grC]|0                                     
 vf.pha.contact.phone        20 PHONE    L                 &(G)GRV[gr,mw]CP[grC]|1                                     
 Ì   €   i   2
vf.terms.discounts
[vf.number,vf.pur.fac,  vf.terms.date]
&(G)GRV[gr,mw]T["D",grTD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vf.terms.date               15 FREE     L                 grTD                                                        
 vf.terms.percent            10 PDEC     R                 &(G)GRV[gr,mw]T["D",grTD]                                   
 Ì     i   2
vf.report
[vfr.number]
/VFGR[gr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vfr.number                  11 FREE     L                 gr                                                          
 vfr.main.node                1 FREE     L                 /VFGR[gr]                                                   
 Ì   €   i   2
vfr.fac.report
[vfr.number,  vfr.pur.fac]
/VFGR[gr]F[mw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vfr.pur.fac                 10 FREE     L                 mw                                                          
 vfr.fac.node                 1 FREE     L                 /VFGR[gr]F[mw]                                              

 Index Files                        Subscripts/Physical Base

 ap.name.x                          [ap.name,number] = active
                                      &(G)GRA[grA,gr]

 id.x                               [index.id,number] = active
                                      &(G)GRI[grI,gr]

 name.x                             [name,number] = active
                                      &(G)GRN[grN,gr]